10 POKE53280,.:POKE53281,.
20 PRINTCHR$(142)CHR$(8)"[147]            [154]LOADSTAR PRESENTS:"
30 PRINT"               SMALL DOS"
40 PRINT"           BY RICHARD CURCIO"
50 PRINT"             [153]COPYRIGHT 1987"
60 PRINT"       [154]PRESS SPACE [154]TO USE SMALL DOS"
70 PRINT"             PRESS Q [154]TO QUIT"
80 A=PEEK(203):IFA<>62ANDA<>60THEN80
90 IFA=62THEN60000
100 CA=(PEEK(45)+256*PEEK(46))-640
110 PRINT"[147][154]  PLACE IT AT THE TOP OF MEMORY (Y[154]/N[154])?"
120 POKE198,0:WAIT198,1:GETA$
130 IFA$="N"THEN500
135 IFA$<>"Y"THEN120
140 SYSCA:CLR
400 PRINT"SMALL DOS INSTALLED":EA=PEEK(36)+256*PEEK(37):DS=EA-511
410 PRINTDS"TO"EA:PRINT"SYS"DS"[145][145][145]"
415 POKE198,1:POKE631,13:NEW
500 INPUT"[154]      WHERE";DS:DH=INT(DS/256):DL=DS-256*DH
502 IFDS>1023ANDDS<40448THEN510
505 IFDS>49152ANDDS<52736THEN510
507 PRINT"      ILLEGAL ADDRESS":GOTO60
510 POKE781,DL:POKE782,DH:CA=CA+12:GOTO140
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8